home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / S-Super PET / (s)tk.d64 / CALL.MACRO < prev    next >
Text File  |  2009-01-18  |  666b  |  36 lines
  1. call macr
  2. pcount__ set  0
  3.      ifnc  .,\1.
  4.        ifnc  .,\2.
  5. pcount__ set   2
  6.          ifnc  .,\3.
  7. pcount__   set   4
  8.            ifnc  .,\4.
  9. pcount__     set   6
  10.              ifnc  .,\5.
  11. pcount__       set   8
  12.                ifnc  .,\6.
  13. pcount__         set   10
  14.                  ldd   \6
  15.                  pshs  d
  16.                endc
  17.                ldd   \5
  18.                pshs  d
  19.              endc
  20.              ldd   \4
  21.              pshs  d
  22.            endc
  23.            ldd   \3
  24.            pshs  d
  25.          endc
  26.          ldd   \2
  27.          pshs  d
  28.        endc
  29.        ldd   \1
  30.      endc
  31.      jsr   \0
  32.      ifne     pcount__
  33.        leas  pcount__,s
  34.      endc
  35.      endm
  36.